home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / phil.ads < prev    next >
Text File  |  1995-04-09  |  379b  |  18 lines
  1. --::::::::::
  2. --phil.ads
  3. --::::::::::
  4. PACKAGE Phil IS
  5.   
  6.   TASK TYPE Philosopher IS
  7.     
  8.     ENTRY Come_To_Life (My_ID :      Positive; 
  9.                         Chopstick1 : Positive;
  10.                         Chopstick2 : Positive);
  11.  
  12.   END Philosopher;
  13.  
  14.   TYPE States IS (Breathing, Thinking, Eating, Done_Eating,
  15.                     Got_One_Stick, Got_Other_Stick);
  16.  
  17. END Phil;
  18.